(count-windows): PROC argument of walk-windows takes an argument.

diff --git a/lisp/window.el b/lisp/window.el
index 621e0706efa8b9060858b674670b29af9a296fbb..a69c20018d77a5b338daab0fd4b1e1e6a6537e47 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1,4 +1,4 @@
-;;; windows.el --- GNU Emacs window commands aside from those written in C.
+;;; window.el --- GNU Emacs window commands aside from those written in C.
 
 ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc.
 
@@ -27,7 +27,7 @@
 Optional arg NO-MINI non-nil means don't count the minibuffer
 even if it is active."
    (let ((count 0))
-     (walk-windows (function (lambda ()
+     (walk-windows (function (lambda (w)
                               (setq count (+ count 1))))
                   minibuf)
      count))